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DECUS Program Library Write-up 


DECUS NO. 8-580 


DECIMAL TO FLOATING POINT CONVERSION 


Abstract 


If a lot of data in floating point format are required, this program can be used to generate 
a complete source tape of the data in floating point format after they have been typed in 
decimal form. The generated tape can be assembled independent of the main program. 


Description 

After a starting address has been specified to indicate the memory buffer in which the 
data are going to be stored, all the data that are needed in floating point format are typed 
in decimal form. 

The program converts the typed numbers to floating point format and punches/prints them 
as groups of three octal numbers, separated by a semicolon. For control purpose the deci¬ 
mal number is printed too. To make the tape complete, leader and trailer tape is punched 
as well as an asterisk in front of the starting address. A dollar sign is punched at the end. 

The program runs together with floating point package 1 or 2. With package 1 the deci¬ 
mal numbers are printed in floating point format, with package 2 they are printed as integers 
with max. 6 digits. (Caution: Floating Point Package 2 DEC-08-YQ2B-PB 4/17/70 needs 
a correction: change the contents of location 7207 from 7200 to 1055.) 

Restriction 


The program works only with the low speed punch. 









Storage Requirements 


20- 37 
63- 71 
101 - 444 

From 445 3 locations are used for each typed decimal number. 
In addition, the floating point package 1 or 2 must be in core. 
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Instructions 



Change contents of lo¬ 
cation 7207 from 
7200 to 1055 


Turn punch off 


Start the program 
SA = 200 


Type your starting address 
(a 4 digit octal number) 


Type the decimal numbers, 
each one terminated by a 
space or by RETURN 


To terminate the input type 
0S, terminated by a space 
or RETURN 


Computer halts. 
Turn punch on 


Depress CONT-key 
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Example with Floating Point Package 1 


START. ADDRESS: 7005 
DATA: 


45 78 97 
-23 -563 -3 

0.645 0.000856 -0.0004527 
0S 


*7005 

0006 ; 2640;0000 

0007;2340;0000 
0007;3020;0000 
0005 ;51 00;0000 

0012 ; 5632;0000 
0002 ; 5000;0000 
0000 ; 2450;7534 
7766 ; 3403;1230 
7765 ; 4225;1724 
S 


/+0.450000E+02 
/+0.780000E+02 
/+0.970000E+02 
/-0.230000E+0 2 
/-0.563000E+0 3 
/-0.300000E+01 


/+0.645000E+00 
/+0.856000E-03 
/ —0.4 5 2 7 3 0 E — O 3 



Example with Floating Point Package 2 


START. ADDRESS: 0645 
DATA: 

1 -3 45 -78 97 

-7564 86734 -756354 

0S 


*064 5 

000i;2000;0000 
0002;5000;0000 

0006;2640;0000 

0007;5440;0O00 

0007;3020:0000 
0015;4235;0000 
00 21 5 2513;1600 
0024;5372;5760 
$ 


/+ 1 

/- 3 ' 

/+ 45 

/- 78 

/+ 97 

/- 7564 

/+ 86734 
/ - 7 5 6 3 5 4 
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DECIMAL TO FLOATING POINT CONVERSION 


Program Listing 


0005 

7400 

*5 

7400 

000 6 

7200 


7200 

0007 

5630 


5600 

0062 

0006 

*62 

6 

0063 

0 355 


OCTALB 

0200 

7300 

*200 

/INITIALISE 

CLA CLL 

0231 

6032 


KCC 

0202 

604 6 


TLS 

0203 

1137 


TAD 137 

0204 

7041 


CIA 

0205 

3020 


DCA MINS 

0206 

4101 


JMS CRLF 

023 7 

4101 


JMS CRLF 

0210 

1321 


TAD M4 

021 1 

3022 


DCA COUNT4 

0212 

1023 


TAD C72 

0213 

33 37 


DCA STADDR 

0214 

1024 


TAD C445 

0215 

3326 


DCA LOCDAT 

0216 

3027 


DCA COUNTD 

0217 

1 1 37 

/READ 

STARTING ADDRE 
TAD 137 

0220 

4107 


JMS PRINT 

.022,1 

1 140 


TAD 140 

0222 

4107 


JMS PRINT 

0223 

1115 


TAD 115 

0224 

4107 


JMS PRINT 

0225 

1 1 36 


TAD 136 

0226 

4107 


JMS PRINT 

0227 

1 1 40 


TAD 140 

0230 

4107 


JMS PRINT 

0231 

1165 


TAD 165 

0232 

4 1 0 7 


JMS PRINT 

3233 

1 1 75 


TAD 175 

0234 

4107 


JMS PRINT 


/S 

/-4 

/SET POINTER FOR STARTING ADDRESS 

/LOCATION FOR DATA 
/POINTER FOR DATA 
/COUNTER FOR DATA 

/S 

/T 

/A 

/R 

/T 

/. 

/SPACE 
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0235 
0236 
'! 2 3 7 

0240 
024 1 
0242 
024 3 
0244 
0245 
0246 
024 7 
0250 
025! 
0252 
0253 
0254 
0255 
0256 
025 7 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 


0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
0300 
0301 
0302 
0303 
0304 
030 5 
0306 
0307 
0310 
031 1 
0312 
0313 
0314 
0315 


1115 

tad 

1 15 

/A 


4107 

JMS 

• PRINT 



1 1 20 

TAD 

1 20 

/D 


4107 

JMS 

PRINT 



1 1 20 

TAD 

120 

/D 


4107 

JMS 

PRINT 



1 1 36 

TAD 

1 36 

/R 


4107 

JMS 

PRINT 



1 121 

TAD 

1 21 

/E 


4107 

JMS 

PRINT 



1 1 37 

TAD 

1 37 

/5 


4 1 0 7 

JMS 

PRINT 



1 1 37 

TAD 

1 37 

/S 


4107 

JMS 

PRINT 



1 1 67 

TAD 

1 67 

/: 


4107 

JMS 

PRINT 



1 1 75 

TAD 

1 75 

/SPACE 


41 0 7 

JMS 

PRINT 



4065 

JMS 

READ 

/READ 1 

l DIGIT 

34 37 

DC A 

I STADDR 



14 37 

TAD 

I STADDR 

/PRINT 

IT 

4107 

JMS 

PHI NT 



20 37 

ISZ 

STADDR 



2022 

ISZ 

C0UNT4 

/ALL 4 

DIGITS 

5257 

JMP 

.-6 

/NO 


4101 

JMS 

CRLF 

/YES 


4101 

JMS 

CRLF 




HEAD ? 


/READ DATA 


1 1 20 

TAD 

1.20 

/D 

4107 

JMS 

PRINT 


1115 

TAD 

115 

/A 

4107 

JMS 

PRINT 


1 140 

TAD 

140 

/T 

4107 

JMS 

PRINT 


1115 

TAD 

1 15 

/A 

4107 

JMS 

PRINT 


1 1 67 

TAD 

1 67 

/: 

4107 

JMS 

PRINT 


4 1 0 1 

JMS 

CRLF 


4101 

• PAS 

CRLF 


4405 

DATA* JMS 

I 5 


4425 

JMS 

I ADOONE 


440 7 

JMS 

I 7 


6426 

FPUT 

I LOGDAT 


0000 

FEXT 


20 27 

I SZ 

COUMTD 


2026 

ISZ 

LOODAT 


2026 

ISZ 

LOGDAT 


20 26 

I SZ 

LOGOAT 


5304 

JMP 

DATA 
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0316 

1024 

PREPPU* 

TAD C445 

/RESET POINTER FOR DATA 

3317 

3026 


DC A LOCDAT 


0330 

1027 


TAD COUNTD 


0331 

7041 


CIA 


0333 

30 27 


DCA COUNTO 

/MEG * NUMBER OF DATA 

0323 

10 23 


TAD C72 

/RESET POINTER FOR STARTING 

0324 

30 37 


DCA STADDR 


0323 

1021 


TAD M4 


0326 

3022 


DCA C0UMT4 

/RESET COUNTER FOR STARTING 

0327 

4 10 1 


JMS CRLF 


0330 

4101 


JMS CRLF 


0331 

4101 


JMS CRLF 


0332 

7402 


HL.T 

/TURN PUNCHER ON 

> 


/PUNCH 

LEADER 


0333 

1030 


TAD M20 


0334 

3031 


DCA COUNT I, 


0335 

4107 


JMS PRINT 


0336 

2031 


ISZ COUNTL 


0337 

5335 


JMP .-2 




/PUNCH 

STARTING ADDRESS 


0340 

1 1 76 


TAD 176 

/* 

0341 

4107 


JMS PRINT 


0342 

14 37 


TAD I STADDR 


0343 

4107 


JMS PRINT 

/PUNCH 1 DIGIT 

0344 

20 37 


ISZ STADDR 


034 5 

2022 


ISZ COUNT4 


0346 

5342 


JMP .-4 


0347 

4101 


JMS CRLF 




/CONVERT DATA TO OCTAL 

AND PUNCH 

0350 

4407 

OCTALAj 

JMS I 7 


0351 

5426 


FGET I LOCDAT 


0352 

0003 


FEXT 


0353 

10 35 


TAD M3 


0354 

3036 


DCA COUNT3 


0355 

33 32 

OCTAL.B* 

DCA STORE 


0356 

1021 


TAD M4 

/SET DIGIT COUNTER 

0357 

3022 


DCA C0UNT4 


0360 

1426 


TAD I LOCDAT 

/GET NUMBER 

0361 

7004 


RAL 


0362 

1032 

UNPACK* 

TAD STORE 


0363 

7004 


RAL 


0364 

7336 


RTL 


0365 

30 32 


DCA STORE 

/STORE ROTATED NUMBER 

0366 

1032 


TAD STORE 


0367 

00 3 3 


AND MASK7 

/I ST 3 BITS OF NUMBER 

0370 

10 34 


TAD C260 

/ADD 260 

03 71 

4107 


JMS PRINT 


0372 

2022 


ISZ COUNT4 


0373 

5362 


JMP UNPACK 


0374 

5775 


JMP I .+1 


0375 

0400 


400 
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*■'100 


0403 

2026 


I SZ 

LOODAT 

040 1 

20 36 


ISZ 

COUNT3 

0402 

5204 


JMP 

. 2 

0403 

5207 


JMP 

. + 4 

0404 

1 172 


TAD 

1 72 

0405 

410 7 


JMS 

PRINT 

040 6 

5463 


JMP 

I 63 

0407 

1 175 


TAD 

175 

0410 

4107 


JMS 

PRINT 

0411 

1 1 75 


TAD 

175 

0412 

4107 


JMS 

PRINT 

0413 

1166 


TAD 

166 

0414 

4107 


JMS 

PRINT 

04 1 5 

4406 


JMS 

I 6 

0416 

2027 


ISZ 

COUNTD 

0417 

5620 


JMP 

I . + 1 

0423 

0 350 


OCTALA 



/PUNCH 

f I tt 1 • 


0421 

1 177 


TAD 

177 

04 22 

4107 


JMS 

PRINT 

0423 

4101 


JMS 

CRLF 



/PUNCH 

TRAILER 

0424 

10 30 


TAD 

M20 

0425 

30 31 


DC A 

COUMTL 

0426 

4107 


JMS 

PRINT 

0427 

20 31 


ISZ 

COUMTL 

04 30 

5226 


JMP 

.-2 

0431 

7402 


HLT 



/2 SPACES 


// 


/S 


/ K M D 
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/SUBROUTINES 




/UALID 

INPUT? ALL DATA 

IN? 

0438 

0000 

DONE, 

0 


0433 

1 0 63 


TAD 60 

/UALID INPUT 

04 34 

7650 


SNA CLA 


0435 

5 64 3 


JMP I RET 

/NO 

04 36 

1057 


TAD 57 

/YES 

0437 

1O20 


TAD MINS 

/ALL DATA IN 

0440 

7640 


SEA CLA 


0441 

5632 


JMP I DONE 

/NO 

0442 

5644 


JMP I CONT 

/YES 

044 3 

0 304 

RET, 

DATA 


0444 

0 316 

CONT, 

PREPPU 




*65 

/READ 



0065 

0000 

READ, 

0 


0066 

60 31 


KSF 


0067 

50 66 


JMP .-1 


00 70 

60 36 


KRB 


00 71 

5465 

*20 

JMP I READ 




/DEFINITIONS 


0020 

0000 

MINS, 

0 


0021 

7774 

M4 , 

7774 

/-4 

0022 

0000 

C0UNT4, 

g 


(3023 

00 72 

C72, 

72 


0024 

0445 

C445, 

445 


0025 

04 32 

ADDONE, 

DONE 


0026 

0000 

LOCDAT, 

0 


0027 

0000 

COUNTD, 

0 


00 30 

7754 

M20, 

7754 

/-20 

00 31 

0000 

COUNTL, 

0 


00 32 

0000 

STORE, 

g 


00 33 

0007 

MASK7, 

7 


0034 

0 260 

C260 , 

260 


00 35 

7775 

M3, 

7775 

/-3 

00 36 

0000 

COUNTS, 

0 


00 37 

0000 

STADDR, 

0 



PAUSE 
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*101 


0101 

0000 

CR-LF, 

0 


0102 

1 1 73 


TAD 

1 73 

0103 

4107 


JMS 

PRINT 

010/4 

1 1 74 


TAD 

1 74 

0105 

4 1 0 7 


JMS 

PRINT 

0106 

5501 


JMP 

I CRLF 

0107 

0300 

PRINT, 

0 


01 10 

6041 


TSF 


01 1 1 

5110 


JMP 

. -i 

0112 

6046 


TL5 


0113 

7200 


CL.A 


0114 ' 

5507 


JMP 

I PRINT 

01 15 

0 301 


301 

/A 

0116 

0302 


302 

/B 

01 1 7 

033 3 


30 3 

/C 

0120 

0 304 


304 

/D 

0121 

0305 


305 

/E 

0122 

0 30 6 


30 6 

/F 

0123 

0 307 


30 7 

/G 

0124 

0310 


310 

/H 

0125 

0311 


31 1 

/I 

0126 

0312 


312 

/J 

0127 

0313 


313 

/K 

0130 

0 314 


314 

/L 

0131 

0315 


315 

AM 

0132 

0316 


316 

/N 

0133 

0317 


317 

/O 

0134 

0 320 


320 

/P 

01 35 

0 321 


321 

/Q 

0136 

0322 


322 

/P. 

0137 

0 323 


323 

/s 

0140 

0 324 


324 

/T 

0141 

0 325 


325 

/U 

0142 

0 326 


326 

/V 

0143 

0327 


327 

/w 

0144 

0330 


330 

/X 

0145 

0331 


331 

/Y 

0146 

0332 


332 

/Z 

0147 

0 2 60 


260 

/0 

0150 

0261 


261 

/I 

0151 

0 262. 


262 

/2 

0152 

0263 


263 

/3 

0153 

0264 


264 

/4 

0154 

0265 


265 

/5 

0155 

0266 


266 

/ 6 

0156 

0267 


267 

/7 

3157 

0270 


270 

/8 

01 60 

0271 


271 

/9 
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3161 

0341 

341 

/! 

3163 

0353 

853 

/ + 

0163 

0354 

354 

/, 

0164 

0355 

355 

/- 

016b 

0356 

356 

/• 

0166 

0 35 7 

35 7 

// 

0167 

03 73 

373 

/: 

01 70 

03 75 

875 

/= 

01 71 

0377 

377 

/? 

01 73 

0373 

373 

/; 

01 73 

0215 

315 

/CR 

01 74 

0213 

318 

/LF 

0175 

0340 

340 

/SPACE 

01 76 

0353 

353 

/* 

0177 

0344 

344 

/S 


ADDONE 

0035 

CONT 

0444 

COUNTD 

0037 

COUNTL 

00 31 

COUNT3 

0036 

C0UNT4 

0033 

CP.LF 

0101 

C360 

0034 

C445 

0334 

C73 

0033 

DATA 

0304 

DONE 

0432 

LOGDAT 

0026 

MASK 7 

0033 

MINS 

0020 

M20 

0030 

M3 

0035 

M4 

0021 

OCTAL A 

0350 

OCT A LB 

0355 

PREPPU 

0316 

PR I NT 

0107 

READ 

00 65 

RET 

0443 

STADDR 

0037 

STORE 

00 32 

UNPACK 

0362 


11 






